home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_32.zip / _BITSTR.FRM < prev    next >
Text File  |  1996-05-14  |  22KB  |  813 lines

  1. VERSION 4.00
  2. Begin VB.Form frmBitString 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Bit string"
  5.    ClientHeight    =   4545
  6.    ClientLeft      =   1890
  7.    ClientTop       =   3270
  8.    ClientWidth     =   7485
  9.    Height          =   4950
  10.    Left            =   1830
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4545
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Top             =   2925
  17.    Width           =   7605
  18.    Begin Threed.SSPanel SSPanel2 
  19.       Align           =   2  'Align Bottom
  20.       Height          =   465
  21.       Left            =   0
  22.       TabIndex        =   1
  23.       Top             =   4080
  24.       Width           =   7485
  25.       _Version        =   65536
  26.       _ExtentX        =   13203
  27.       _ExtentY        =   820
  28.       _StockProps     =   15
  29.       BackColor       =   12632256
  30.       Begin VB.TextBox Text1 
  31.          Height          =   285
  32.          Left            =   1440
  33.          TabIndex        =   3
  34.          Tag             =   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  35.          Top             =   90
  36.          Width           =   5055
  37.       End
  38.       Begin Threed.SSCommand SSCommand2 
  39.          Height          =   285
  40.          Left            =   6570
  41.          TabIndex        =   4
  42.          Top             =   90
  43.          Width           =   825
  44.          _Version        =   65536
  45.          _ExtentX        =   1455
  46.          _ExtentY        =   503
  47.          _StockProps     =   78
  48.          Caption         =   "&Reset"
  49.          BevelWidth      =   1
  50.          Outline         =   0   'False
  51.       End
  52.       Begin VB.Label Label1 
  53.          Caption         =   "&Enter a test string"
  54.          Height          =   255
  55.          Left            =   90
  56.          TabIndex        =   2
  57.          Top             =   120
  58.          Width           =   1275
  59.       End
  60.    End
  61.    Begin Threed.SSPanel SSPanel1 
  62.       Align           =   1  'Align Top
  63.       Height          =   480
  64.       Left            =   0
  65.       TabIndex        =   5
  66.       Top             =   0
  67.       Width           =   7485
  68.       _Version        =   65536
  69.       _ExtentX        =   13203
  70.       _ExtentY        =   847
  71.       _StockProps     =   15
  72.       ForeColor       =   -2147483640
  73.       BackColor       =   12632256
  74.       Begin VB.ComboBox cmb_Function 
  75.          Height          =   315
  76.          Left            =   1365
  77.          TabIndex        =   6
  78.          Top             =   90
  79.          Width           =   4785
  80.       End
  81.       Begin Threed.SSCommand cmdNP 
  82.          Height          =   300
  83.          Index           =   1
  84.          Left            =   7140
  85.          TabIndex        =   10
  86.          Top             =   90
  87.          Width           =   255
  88.          _Version        =   65536
  89.          _ExtentX        =   450
  90.          _ExtentY        =   529
  91.          _StockProps     =   78
  92.          Caption         =   ">"
  93.          BevelWidth      =   1
  94.          Font3D          =   3
  95.          RoundedCorners  =   0   'False
  96.          Outline         =   0   'False
  97.       End
  98.       Begin Threed.SSCommand cmdNP 
  99.          Height          =   300
  100.          Index           =   0
  101.          Left            =   6300
  102.          TabIndex        =   9
  103.          Top             =   90
  104.          Width           =   255
  105.          _Version        =   65536
  106.          _ExtentX        =   450
  107.          _ExtentY        =   529
  108.          _StockProps     =   78
  109.          Caption         =   "<"
  110.          BevelWidth      =   1
  111.          Font3D          =   3
  112.          RoundedCorners  =   0   'False
  113.          Outline         =   0   'False
  114.       End
  115.       Begin VB.Label Label2 
  116.          Caption         =   "&Select a function"
  117.          Height          =   255
  118.          Left            =   90
  119.          TabIndex        =   8
  120.          Top             =   120
  121.          Width           =   1275
  122.       End
  123.       Begin Threed.SSCommand SSCommand1 
  124.          Default         =   -1  'True
  125.          Height          =   300
  126.          Left            =   6615
  127.          TabIndex        =   7
  128.          Top             =   90
  129.          Width           =   465
  130.          _Version        =   65536
  131.          _ExtentX        =   820
  132.          _ExtentY        =   529
  133.          _StockProps     =   78
  134.          Caption         =   "&Go"
  135.          BevelWidth      =   1
  136.          RoundedCorners  =   0   'False
  137.          Outline         =   0   'False
  138.       End
  139.    End
  140.    Begin VB.Label lbl_Result 
  141.       Appearance      =   0  'Flat
  142.       BackColor       =   &H80000005&
  143.       BackStyle       =   0  'Transparent
  144.       ForeColor       =   &H80000008&
  145.       Height          =   3345
  146.       Left            =   90
  147.       TabIndex        =   0
  148.       Top             =   630
  149.       Width           =   7305
  150.    End
  151. End
  152. Attribute VB_Name = "frmBitString"
  153. Attribute VB_Creatable = False
  154. Attribute VB_Exposed = False
  155. Option Explicit
  156. Option Base 1
  157.  
  158. Private Const Iteration = 250
  159.  
  160. Dim IsLoaded         As Integer
  161.  
  162. Dim TimerStartOk     As Integer
  163. Dim TimerCloseOk     As Integer
  164.  
  165. Dim TimerHandle      As Integer
  166. Dim TimerValue       As Long
  167.  
  168. Private Sub cmb_Function_Click()
  169.    
  170.    If (IsLoaded = False) Then Exit Sub
  171.    
  172.    Call cDisableFI(mdiT2W.Picture1)
  173.    
  174.    SSPanel2.Visible = True
  175.    
  176.    lbl_Result = ""
  177.    
  178.    DoEvents
  179.    
  180.    Select Case cmb_Function.ListIndex
  181.       Case 0
  182.          SSPanel2.Visible = False
  183.          Call TestCreateBits
  184.       Case 1
  185.          Call TestFindBitReset
  186.       Case 2
  187.          Call TestFindBitSet
  188.       Case 3
  189.          Call TestGetBit
  190.       Case 4
  191.          SSPanel2.Visible = False
  192.          Call TestGiveBitPalindrome
  193.       Case 5
  194.          Call TestIsBitPalindrome
  195.       Case 6
  196.          Call TestReverseAllBits
  197.       Case 7
  198.          Call TestReverseAllBitsByChar
  199.       Case 8
  200.          Call TestSetAllBits
  201.       Case 9
  202.          Call TestSetBit
  203.       Case 10
  204.          Call TestToggleAllBits
  205.       Case 11
  206.          Call TestToggleBit
  207.    End Select
  208.  
  209.    DoEvents
  210.    Call cEnableFI(mdiT2W.Picture1)
  211.    
  212. End Sub
  213.  
  214.  
  215. Private Sub cmdNP_Click(Index As Integer)
  216.  
  217.    Call sub_NextPrev(cmb_Function, Index)
  218.  
  219. End Sub
  220.  
  221. Private Sub Form_Activate()
  222.  
  223.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  224.  
  225. End Sub
  226.  
  227. Private Sub Form_Load()
  228.  
  229.    IsLoaded = False
  230.    
  231.    Show
  232.  
  233.    Text1.Text = Text1.Tag + LCase$(Text1.Tag)
  234.  
  235.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_bitstr.t2w")
  236.    
  237.    IsLoaded = True
  238.    
  239. End Sub
  240.  
  241. Private Sub SSCommand1_Click()
  242.    
  243.    Call cmb_Function_Click
  244.    
  245. End Sub
  246.  
  247.  
  248.  
  249.  
  250. Private Sub TestCreateBits()
  251.    
  252.    Dim intResult        As Integer
  253.    Dim strResult        As String
  254.    Dim strDisplay       As String
  255.    
  256.    Dim i                As Integer
  257.    
  258.    intResult = 0
  259.    
  260.    strResult = ""
  261.    strDisplay = ""
  262.      
  263.    strResult = cCreateBits(1024)
  264.    strDisplay = strDisplay + "Create a bit string for 1024 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  265.    
  266.    strResult = cCreateBits(512)
  267.    strDisplay = strDisplay + "Create a bit string for 512 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  268.  
  269.    strResult = cCreateBits(33)
  270.    strDisplay = strDisplay + "Create a bit string for 33 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  271.  
  272.    strResult = cCreateBits(1)
  273.    strDisplay = strDisplay + "Create a bit string for 1 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  274.  
  275.    strResult = cCreateBits(-1)
  276.    strDisplay = strDisplay + "Create a bit string for -1 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  277.  
  278.    lbl_Result = strDisplay
  279.  
  280.    'time the function
  281.  
  282.    TimerHandle = cTimerOpen()
  283.    TimerStartOk = cTimerStart(TimerHandle)
  284.    
  285.    For i = 1 To Iteration
  286.       strResult = cCreateBits(1024)
  287.    Next i
  288.    
  289.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  290.    
  291.    TimerCloseOk = cTimerClose(TimerHandle)
  292.  
  293. End Sub
  294.  
  295.  
  296.  
  297.  
  298. Private Sub TestFindBitReset()
  299.    
  300.    Dim intResult        As Integer
  301.    Dim strResult        As String
  302.    Dim strDisplay       As String
  303.    
  304.    Dim strData          As String
  305.    
  306.    Dim i                As Integer
  307.    
  308.    intResult = 0
  309.    
  310.    strResult = ""
  311.    strDisplay = ""
  312.      
  313.    strData = Text1.Text
  314.    
  315.    strDisplay = strDisplay + "The following bits are Reset (False) " & vbCrLf & vbCrLf
  316.    
  317.    intResult = True
  318.    
  319.    Do
  320.       intResult = cFindBitReset(strData, intResult)
  321.       If (intResult <> True) Then strDisplay = strDisplay & intResult & ", "
  322.    Loop Until (intResult = True)
  323.    
  324.    strDisplay = Left$(strDisplay, Len(strDisplay) - 1)
  325.    
  326.    strDisplay = strDisplay & vbCrLf & vbCrLf
  327.  
  328.    lbl_Result = strDisplay
  329.  
  330.    'time the function
  331.  
  332.    TimerHandle = cTimerOpen()
  333.    TimerStartOk = cTimerStart(TimerHandle)
  334.    
  335.    For i = 1 To Iteration
  336.       intResult = cFindBitReset(strData, i)
  337.    Next i
  338.    
  339.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  340.    
  341.    TimerCloseOk = cTimerClose(TimerHandle)
  342.  
  343. End Sub
  344.  
  345. Private Sub SSCommand2_Click()
  346.    
  347.    Text1.Text = Text1.Tag + LCase$(Text1.Tag)
  348.    
  349.    Call SSCommand1_Click
  350.    
  351. End Sub
  352.  
  353.  
  354.  
  355. Private Sub TestFindBitSet()
  356.    
  357.    Dim intResult        As Integer
  358.    Dim strResult        As String
  359.    Dim strDisplay       As String
  360.    
  361.    Dim strData          As String
  362.    
  363.    Dim i                As Integer
  364.    
  365.    intResult = 0
  366.    
  367.    strResult = ""
  368.    strDisplay = ""
  369.      
  370.    strData = Text1.Text
  371.    
  372.    strDisplay = strDisplay + "The following bits are Set (True) " & vbCrLf & vbCrLf
  373.    
  374.    intResult = True
  375.    
  376.    Do
  377.       intResult = cFindBitSet(strData, intResult)
  378.       If (intResult <> True) Then strDisplay = strDisplay & intResult & ", "
  379.    Loop Until (intResult = True)
  380.    
  381.    strDisplay = Left$(strDisplay, Len(strDisplay) - 1)
  382.    
  383.    strDisplay = strDisplay & vbCrLf & vbCrLf
  384.  
  385.    lbl_Result = strDisplay
  386.  
  387.    'time the function
  388.  
  389.    TimerHandle = cTimerOpen()
  390.    TimerStartOk = cTimerStart(TimerHandle)
  391.    
  392.    For i = 1 To Iteration
  393.       intResult = cFindBitSet(strData, i)
  394.    Next i
  395.    
  396.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  397.    
  398.    TimerCloseOk = cTimerClose(TimerHandle)
  399.  
  400. End Sub
  401.  
  402. Private Sub TestGetBit()
  403.    
  404.    Dim intResult        As Integer
  405.    Dim strResult        As String
  406.    Dim strDisplay       As String
  407.    
  408.    Dim strData          As String
  409.    
  410.    Dim i                As Integer
  411.    
  412.    intResult = 0
  413.    
  414.    strResult = ""
  415.    strDisplay = ""
  416.      
  417.    strData = Text1.Text
  418.    
  419.    strDisplay = strDisplay + "Bit '1' is '" & IIf(cGetBit(strData, 1), "set", "reset") & "'" & vbCrLf
  420.    strDisplay = strDisplay + "Bit '3' is '" & IIf(cGetBit(strData, 3), "set", "reset") & "'" & vbCrLf
  421.    strDisplay = strDisplay + "Bit '5' is '" & IIf(cGetBit(strData, 5), "set", "reset") & "'" & vbCrLf
  422.    strDisplay = strDisplay + "Bit '7' is '" & IIf(cGetBit(strData, 7), "set", "reset") & "'" & vbCrLf
  423.    strDisplay = strDisplay + "Bit '100' is '" & IIf(cGetBit(strData, 100), "set", "reset") & "'" & vbCrLf
  424.    strDisplay = strDisplay + "Bit '102' is '" & IIf(cGetBit(strData, 102), "set", "reset") & "'" & vbCrLf
  425.    strDisplay = strDisplay + "Bit '104' is '" & IIf(cGetBit(strData, 104), "set", "reset") & "'" & vbCrLf
  426.    strDisplay = strDisplay + "Bit '106' is '" & IIf(cGetBit(strData, 106), "set", "reset") & "'" & vbCrLf
  427.    
  428.    lbl_Result = strDisplay
  429.  
  430.    'time the function
  431.  
  432.    TimerHandle = cTimerOpen()
  433.    TimerStartOk = cTimerStart(TimerHandle)
  434.    
  435.    For i = 1 To Iteration
  436.       intResult = cGetBit(strData, i)
  437.    Next i
  438.    
  439.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  440.    
  441.    TimerCloseOk = cTimerClose(TimerHandle)
  442.  
  443. End Sub
  444.  
  445. Private Sub TestGiveBitPalindrome()
  446.    
  447.    Dim intResult        As Integer
  448.    Dim strResult        As String
  449.    Dim strDisplay       As String
  450.    
  451.    Dim strData          As String
  452.    
  453.    Dim i                As Integer
  454.    
  455.    intResult = 0
  456.    
  457.    strResult = ""
  458.    strDisplay = ""
  459.      
  460.    strResult = cGiveBitPalindrome()
  461.    
  462.    strDisplay = strDisplay + "The followings chars are Bit Palindrome : " & vbCrLf & vbCrLf
  463.    strDisplay = strDisplay + "chr(0) and  " & cBlockCharFromRight(cGiveBitPalindrome(), 1)
  464.    
  465.    lbl_Result = strDisplay
  466.  
  467.    'time the function
  468.  
  469.    TimerHandle = cTimerOpen()
  470.    TimerStartOk = cTimerStart(TimerHandle)
  471.    
  472.    For i = 1 To Iteration
  473.       strResult = cGiveBitPalindrome()
  474.    Next i
  475.    
  476.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  477.    
  478.    TimerCloseOk = cTimerClose(TimerHandle)
  479.  
  480. End Sub
  481.  
  482. Private Sub TestIsBitPalindrome()
  483.    
  484.    Dim intResult        As Integer
  485.    Dim strResult        As String
  486.    Dim strDisplay       As String
  487.    
  488.    Dim strData          As String
  489.    
  490.    Dim i                As Integer
  491.    
  492.    intResult = 0
  493.    
  494.    strResult = ""
  495.    strDisplay = ""
  496.    
  497.    strData = Text1.Text
  498.      
  499.    intResult = cIsBitPalindrome(strData)
  500.    
  501.    strDisplay = strDisplay + "Test string is " & IIf(intResult, "", "not ") & "Bit Palindrome " & vbCrLf & vbCrLf
  502.    
  503.    strDisplay = strDisplay + "The followings chars are Bit Palindrome : " & vbCrLf
  504.    
  505.    For i = 1 To 255
  506.       If cIsBitPalindrome(Chr$(i)) Then strDisplay = strDisplay + Chr$(i) & " (" & i & ") "
  507.    Next i
  508.  
  509.    lbl_Result = strDisplay
  510.  
  511.    'time the function
  512.  
  513.    TimerHandle = cTimerOpen()
  514.    TimerStartOk = cTimerStart(TimerHandle)
  515.    
  516.    For i = 1 To Iteration
  517.       intResult = cIsBitPalindrome(strData)
  518.    Next i
  519.    
  520.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  521.    
  522.    TimerCloseOk = cTimerClose(TimerHandle)
  523.  
  524. End Sub
  525.  
  526. Private Sub TestReverseAllBits()
  527.    
  528.    Dim intResult        As Integer
  529.    Dim strResult        As String
  530.    Dim strDisplay       As String
  531.    
  532.    Dim strData          As String
  533.    
  534.    Dim i                As Integer
  535.    
  536.    intResult = 0
  537.    
  538.    strResult = ""
  539.    strDisplay = ""
  540.    
  541.    strData = Text1.Text
  542.      
  543.    Call cReverseAllBits(strData)
  544.    strDisplay = strDisplay + "Reverse all bits is " & vbCrLf & strData & vbCrLf & vbCrLf
  545.    
  546.    Call cReverseAllBits(strData)
  547.    strDisplay = strDisplay + "Reverse all bits of the reversed is " & vbCrLf & strData & vbCrLf & vbCrLf
  548.    
  549.    lbl_Result = strDisplay
  550.  
  551.    'time the function
  552.  
  553.    TimerHandle = cTimerOpen()
  554.    TimerStartOk = cTimerStart(TimerHandle)
  555.    
  556.    For i = 1 To Iteration
  557.       Call cReverseAllBits(strData)
  558.    Next i
  559.    
  560.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  561.    
  562.    TimerCloseOk = cTimerClose(TimerHandle)
  563.  
  564. End Sub
  565.  
  566. Private Sub TestReverseAllBitsByChar()
  567.    
  568.    Dim intResult        As Integer
  569.    Dim strResult        As String
  570.    Dim strDisplay       As String
  571.    
  572.    Dim strData          As String
  573.    
  574.    Dim i                As Integer
  575.    
  576.    intResult = 0
  577.    
  578.    strResult = ""
  579.    strDisplay = ""
  580.    
  581.    strData = Text1.Text
  582.      
  583.    Call cReverseAllBitsByChar(strData)
  584.    strDisplay = strDisplay + "Reverse all bits by char is " & vbCrLf & strData & vbCrLf & vbCrLf
  585.    
  586.    Call cReverseAllBitsByChar(strData)
  587.    strDisplay = strDisplay + "Reverse all bits by char of the reversed is " & vbCrLf & strData & vbCrLf & vbCrLf
  588.    
  589.    lbl_Result = strDisplay
  590.  
  591.    'time the function
  592.  
  593.    TimerHandle = cTimerOpen()
  594.    TimerStartOk = cTimerStart(TimerHandle)
  595.    
  596.    For i = 1 To Iteration
  597.       Call cReverseAllBitsByChar(strData)
  598.    Next i
  599.    
  600.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  601.    
  602.    TimerCloseOk = cTimerClose(TimerHandle)
  603.  
  604. End Sub
  605.  
  606. Private Sub TestSetAllBits()
  607.    
  608.    Dim intResult        As Integer
  609.    Dim strResult        As String
  610.    Dim strDisplay       As String
  611.    
  612.    Dim strData          As String
  613.    
  614.    Dim i                As Integer
  615.    
  616.    intResult = 0
  617.    
  618.    strResult = ""
  619.    strDisplay = ""
  620.    
  621.    strData = Text1.Text
  622.    
  623.    Call cSetAllBits(strData, True)
  624.    strDisplay = strDisplay + "Set all bits is " & vbCrLf
  625.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  626.    
  627.    Call cSetAllBits(strData, False)
  628.    strDisplay = strDisplay + "Reset all bits is " & vbCrLf
  629.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  630.    
  631.    lbl_Result = strDisplay
  632.  
  633.    'time the function
  634.  
  635.    TimerHandle = cTimerOpen()
  636.    TimerStartOk = cTimerStart(TimerHandle)
  637.    
  638.    For i = 1 To Iteration
  639.       Call cSetAllBits(strData, True)
  640.    Next i
  641.    
  642.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  643.    
  644.    TimerCloseOk = cTimerClose(TimerHandle)
  645.  
  646. End Sub
  647.  
  648. Private Sub TestSetBit()
  649.    
  650.    Dim intResult        As Integer
  651.    Dim strResult        As String
  652.    Dim strDisplay       As String
  653.    
  654.    Dim strData          As String
  655.    
  656.    Dim i                As Integer
  657.    
  658.    intResult = 0
  659.    
  660.    strResult = ""
  661.    strDisplay = ""
  662.    
  663.    strData = Text1.Text
  664.    
  665.    Call cSetBit(strData, 0, True)
  666.    strDisplay = strDisplay + "Set bit '0' is '" & strData & "'" & vbCrLf
  667.    Call cSetBit(strData, 5, True)
  668.    strDisplay = strDisplay + "Set bit '5' is '" & strData & "'" & vbCrLf
  669.    Call cSetBit(strData, 7, True)
  670.    strDisplay = strDisplay + "Set bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  671.    
  672.    Call cSetBit(strData, 0, False)
  673.    strDisplay = strDisplay + "Reset bit '0' is '" & strData & "'" & vbCrLf
  674.    Call cSetBit(strData, 5, False)
  675.    strDisplay = strDisplay + "Reset bit '5' is '" & strData & "'" & vbCrLf
  676.    Call cSetBit(strData, 7, False)
  677.    strDisplay = strDisplay + "Reset bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  678.    
  679.    Call cSetBit(strData, 22, True)
  680.    strDisplay = strDisplay + "Set bit '22' is '" & strData & "'" & vbCrLf
  681.    Call cSetBit(strData, 30, True)
  682.    strDisplay = strDisplay + "Set bit '30' is '" & strData & "'" & vbCrLf
  683.    Call cSetBit(strData, 38, True)
  684.    strDisplay = strDisplay + "Set bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  685.    
  686.    Call cSetBit(strData, 22, False)
  687.    strDisplay = strDisplay + "Reset bit '22' is '" & strData & "'" & vbCrLf
  688.    Call cSetBit(strData, 30, False)
  689.    strDisplay = strDisplay + "Reset bit '30' is '" & strData & "'" & vbCrLf
  690.    Call cSetBit(strData, 38, False)
  691.    strDisplay = strDisplay + "Reset bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  692.    
  693.    lbl_Result = strDisplay
  694.  
  695.    'time the function
  696.  
  697.    TimerHandle = cTimerOpen()
  698.    TimerStartOk = cTimerStart(TimerHandle)
  699.    
  700.    For i = 1 To Iteration
  701.       Call cSetBit(strData, 0, True)
  702.    Next i
  703.    
  704.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  705.    
  706.    TimerCloseOk = cTimerClose(TimerHandle)
  707.  
  708. End Sub
  709.  
  710. Private Sub TestToggleAllBits()
  711.    
  712.    Dim intResult        As Integer
  713.    Dim strResult        As String
  714.    Dim strDisplay       As String
  715.    
  716.    Dim strData          As String
  717.    
  718.    Dim i                As Integer
  719.    
  720.    intResult = 0
  721.    
  722.    strResult = ""
  723.    strDisplay = ""
  724.    
  725.    strData = Text1.Text
  726.    
  727.    Call cToggleAllBits(strData)
  728.    strDisplay = strDisplay + "Toggle all bits is " & vbCrLf
  729.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  730.    
  731.    Call cToggleAllBits(strData)
  732.    strDisplay = strDisplay + "Toggle all bits of the toggled is " & vbCrLf
  733.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  734.    
  735.    lbl_Result = strDisplay
  736.  
  737.    'time the function
  738.  
  739.    TimerHandle = cTimerOpen()
  740.    TimerStartOk = cTimerStart(TimerHandle)
  741.    
  742.    For i = 1 To Iteration
  743.       Call cToggleAllBits(strData)
  744.    Next i
  745.    
  746.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  747.    
  748.    TimerCloseOk = cTimerClose(TimerHandle)
  749.  
  750. End Sub
  751.  
  752. Private Sub TestToggleBit()
  753.    
  754.    Dim intResult        As Integer
  755.    Dim strResult        As String
  756.    Dim strDisplay       As String
  757.    
  758.    Dim strData          As String
  759.    
  760.    Dim i                As Integer
  761.    
  762.    intResult = 0
  763.    
  764.    strResult = ""
  765.    strDisplay = ""
  766.    
  767.    strData = Text1.Text
  768.    
  769.    Call cToggleBit(strData, 0)
  770.    strDisplay = strDisplay + "Toggle bit '0' is '" & strData & "'" & vbCrLf
  771.    Call cToggleBit(strData, 5)
  772.    strDisplay = strDisplay + "Toggle bit '5' is '" & strData & "'" & vbCrLf
  773.    Call cToggleBit(strData, 7)
  774.    strDisplay = strDisplay + "Toggle bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  775.    
  776.    Call cToggleBit(strData, 0)
  777.    strDisplay = strDisplay + "Toggle bit '0' is '" & strData & "'" & vbCrLf
  778.    Call cToggleBit(strData, 5)
  779.    strDisplay = strDisplay + "Toggle bit '5' is '" & strData & "'" & vbCrLf
  780.    Call cToggleBit(strData, 7)
  781.    strDisplay = strDisplay + "Toggle bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  782.    
  783.    Call cToggleBit(strData, 22)
  784.    strDisplay = strDisplay + "Toggle bit '22' is '" & strData & "'" & vbCrLf
  785.    Call cToggleBit(strData, 30)
  786.    strDisplay = strDisplay + "Toggle bit '30' is '" & strData & "'" & vbCrLf
  787.    Call cToggleBit(strData, 38)
  788.    strDisplay = strDisplay + "Toggle bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  789.    
  790.    Call cToggleBit(strData, 22)
  791.    strDisplay = strDisplay + "Toggle bit '22' is '" & strData & "'" & vbCrLf
  792.    Call cToggleBit(strData, 30)
  793.    strDisplay = strDisplay + "Toggle bit '30' is '" & strData & "'" & vbCrLf
  794.    Call cToggleBit(strData, 38)
  795.    strDisplay = strDisplay + "Toggle bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  796.    
  797.    lbl_Result = strDisplay
  798.  
  799.    'time the function
  800.  
  801.    TimerHandle = cTimerOpen()
  802.    TimerStartOk = cTimerStart(TimerHandle)
  803.    
  804.    For i = 1 To Iteration
  805.       Call cToggleBit(strData, 0)
  806.    Next i
  807.    
  808.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  809.    
  810.    TimerCloseOk = cTimerClose(TimerHandle)
  811.  
  812. End Sub
  813.